home *** CD-ROM | disk | FTP | other *** search
/ Delphi Developer's Kit 1996 / Delphi Developer's Kit 1996.iso / power / rbanding / rbanding.txt < prev    next >
Encoding:
Text File  |  1995-12-22  |  877 b   |  18 lines
  1. Okay, here is a simple minded rubberbanding example.
  2. There is a minor bug in it that sometimes leaves a small WHITE image
  3. on the canvas, but I will leave that to the student to fix :-)
  4.  
  5. Although the rubberbanding does not DO anything, adding that functionality
  6. would not be difficult ( I have already done so, with a CAD style program).
  7. One approach would be to use the final shape (rectangle, ellipse) as a region
  8. and check all drawn 'objects' for inclusion in the region's space.  Of course,
  9. this requires you to keep a list of objects drawn on the work area, so you can
  10. check bounding coords against the banded area.  The best place to do this is in
  11. the MouseUp handler, after the final shape has been drawn.
  12.  
  13. I leave it to you to experiment with different, multiple background colors
  14. (does the rubberband disappear?), and other considerations.
  15.  
  16. Have Fun!
  17.  
  18.